home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtcomman.d < prev    next >
Text File  |  1997-10-26  |  4KB  |  71 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtCommand    Funktionen fr Kommandozeile und Environment            *
  24.  *              Untersttzt Parameterbergabe nach ARGV                 *
  25.  *----------------------------------------------------------------------*)
  26.  
  27. DEFINITION MODULE mtCommand;
  28.  
  29. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  30.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  31.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  32.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  33.  
  34.  
  35.  
  36.  
  37.  
  38. PROCEDURE ArgV (): BOOLEAN;
  39. (* TRUE, wenn die Parameter nach ARGV bergeben wurden *)
  40.  
  41. PROCEDURE ParamCount (): sINTEGER;
  42. (* Anzahl der Parameter in der Kommandozeile, 0 wenn keine Parameter *)
  43.  
  44. PROCEDURE ParamString (n: sINTEGER; VAR arg: ARRAY OF CHAR);
  45. (* Liefert das n'te Argument aus der Kommandozeile. Gibts n nicht, ist arg
  46.  * leer.  Wurden die Argumente nach ARGV bergeben, ist das Argument mit
  47.  * Nummer 0 der Pfad und Name des Programmes.
  48.  *)
  49.  
  50. (* Einige bliche Environment-Variablen *)
  51.  
  52. CONST   EnvPath =       'PATH=';        (* Suchpfade *)
  53.         EnvParent =     'PARENT=';      (* Name der aufrufenden Applikation *)
  54.         EnvRows =       'ROWS=';        (* Anzahl der Zeilen auf dem Schirm *)
  55.         EnvColumns =    'COLUMNS=';     (* Anzahl der Spalten auf dem Schirm *)
  56.         EnvTempdir =    'TMPDIR=';      (* Tempor„res Verzeichnis *)
  57.         EnvClipbrd =    'CLIPBRD=';     (* Clipboard-Verzeichnis *)
  58.         EnvHome =       'HOME=';        (* Home-Path *)
  59.         EnvEditor =     'EDITOR=';      (* Name des Default-Editors *)
  60.         EnvShell =      'SHELL=';       (* Name der Shell *)
  61.         EnvStderr =     'STDERR=';      (* Standard-Fehlerkanal *)
  62.  
  63. PROCEDURE EnvVar (REF  name: ARRAY OF CHAR; VAR value: ARRAY OF CHAR): BOOLEAN;
  64. (* Sucht in einem eventuellen Environment eine Variable namens 'name' und
  65.  * liefert deren Wert in 'value'. Returniert TRUE, wenn die Environment-
  66.  * Variable gefunden wurde, sonst FALSE.
  67.  *)
  68.  
  69. END mtCommand.
  70.  
  71.